home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / dbmail.arc / ML0510.PRG < prev    next >
Encoding:
Text File  |  1988-06-19  |  4.1 KB  |  64 lines
  1. NOTE ML0510 - CODE DESCRIPTION MASTER FILE MAINTENANCE        5/14/83
  2. USE ML0500 INDEX ML0500I
  3. STORE F TO DONE
  4. STORE '            ' TO CF
  5. STORE ' ' TO COMM
  6. DO WHILE .NOT. DONE
  7. ERASE
  8. @ 1,0 SAY 'MAILING LIST SELECTION CODE' GET CF PICTURE 'XXXXXXXXXXXX'
  9. @ 1,50 SAY 'ENTER BLANKS TO RETURN TO MENU'
  10. READ
  11. FIND &CF
  12. DO CASE
  13. CASE CF='            '
  14.     STORE T TO DONE
  15. CASE #>0
  16.     STORE DESCR TO DF
  17.     STORE 'U' TO COMM
  18.     IF *
  19.         @ 1,50 SAY '*** RECORD DELETED ***        '
  20.     ELSE
  21.         @ 1,50
  22.         ENDIF
  23. CASE #<1
  24.     STORE ' ' TO COMM
  25.     @ 3,1 SAY 'CODE NOT ON FILE - A=ADD TO FILE'
  26.     @ 4,20 SAY 'R=REENTER CODE' GET COMM PICTURE '!'
  27.     READ
  28.     IF COMM#'A'
  29.         STORE ' ' TO COMM
  30.         ENDIF
  31.     STORE '                              ' TO DF
  32.     @ 1,50
  33.     @ 3,0
  34.     @ 4,0
  35. ENDCASE
  36. IF (COMM='A' .OR. COMM='U') .AND. .NOT. DONE
  37.     @ 3,1 SAY 'CODE DESCRIPTION ' GET DF PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  38.     READ
  39.     ? 'ENTER Y=OK TO UPDATE,  N=BYPASS UPDATE,  D=DELETE RECORD'
  40.     ACCEPT '                                      R=RECALL DELETED RECORD' TO ACT
  41.     DO CASE
  42.     CASE ACT='Y'
  43.         IF COMM='A'
  44.             APPEND BLANK
  45.             REPLACE CODE WITH CF
  46.             ENDIF
  47.         REPLACE DESCR WITH DF
  48.         ? 'RECORD UPDATED'
  49.     CASE ACT='D' .AND. .NOT.* .AND. COMM='U'
  50.         DELETE
  51.         ? 'RECORD DELETED'
  52.     CASE ACT='R' .AND. * .AND. COMM='U'
  53.         RECALL
  54.         ? 'RECORD RECALLED'
  55.     ENDCASE
  56.     SKIP
  57.     STORE CODE TO CF
  58.     ENDIF
  59. ENDDO
  60. USE
  61. RELEASE COMM,ACT,CF,DF,DONE
  62. RETURN
  63. 
  64.